home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
245
/
gfatip15
/
gfatip15.lst
< prev
next >
Wrap
File List
|
1988-02-07
|
2KB
|
69 lines
' GFATIP15.BAS
' Copyright 1988 Marathon Computer Press
' Written by
' Barbara J. Behuniak
' John B. Holder
' Brian Lake
'
' This tip file and the rest of the archive are in the public domain in so
' far as no charge of any kind is assessed for the distribution of it in it's
' entirety. Marathon Computer Press retains all rights the code contained
' herein. You may use any or all of the code in any application you write for
' commercial or non-commercial use. Please give us credit if you do so.
'
'
'
' Now let's call our procedures to make the end result of a software reboot.
'
'
@Do_a_reboot ! Call in the ST Wreckers..
' Once called your system will reboot just as if you pressed the reset.
'
'
Procedure Do_a_reboot
Reboot$=""
@Insert_rebooter_asm
Machine_code%=Varptr(Reboot$)
@Supexec(Machine_code%)
'
Return ! Even though we never will.
'
'
'
Procedure Insert_rebooter_asm
'
Do
Read Asm%
Exit If Asm%<0
Reboot$=Reboot$+Mki$(Asm%)
Loop
'
Return
'
'
'
' Disassembled Machine code for the file REBOOT2.O
'
Data 0,0,0,0,0,5632,0,0
Data 0,0,17081,0,1056,17081,0,1082
Data 11897,0,0,8313,0,4,20176,26470
Data 24930,28527,29696,0,0,0
Data -1
'
'
' This next Xbios routine is not for Beginners!!!!!!!
' It will execute a routine in the 68000 supervisor mode
' The address must be passed in this manner:
' Prog_address=Varptr("function")
' For example you Bload a ML program in the variable Prog$, then you would
' use Prog_address=Varptr(Prog$)
'
'
' This routine was extracted from the GFA Basic Companion II .LST library and
' is Copyright 1988 Marathon Computer Press. Provided in this GFATIP by
' MichTron and Marathon Computer Press as a public service.
'
Procedure Supexec(Machine_code%)
Dummy=Xbios(38,L:Machine_code%)
Return